home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / sharewar / learnAPI / learnapi.exe / mdlReg Functions.bas < prev    next >
BASIC Source File  |  1998-06-09  |  12KB  |  183 lines
  1. Attribute VB_Name = "RegFunctions"
  2. ' -----------------|
  3. ' ADVAPI32         |
  4. ' -----------------|
  5. ' function prototypes, constants, and type definitions
  6. ' for Windows 32-bit Registry API
  7.  
  8. 'Last Edit: 11/30/97 by Danny Falkov. (genius@escape.com)
  9.  
  10. Public Const HKEY_CLASSES_ROOT = &H80000000
  11. Public Const HKEY_CURRENT_USER = &H80000001
  12. Public Const HKEY_LOCAL_MACHINE = &H80000002
  13. Public Const HKEY_USERS = &H80000003
  14. Public Const HKEY_PERFORMANCE_DATA = &H80000004
  15.  
  16. 'Registry API declares
  17.  
  18. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  19. Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  20. 'Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
  21. Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  22. Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
  23. Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
  24. 'Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long
  25. Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
  26. Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  27. 'Declare Function RegGetKeySecurity Lib "advapi32.dll" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long
  28. Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long
  29. Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" (ByVal hKey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long
  30. Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  31. Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  32. 'Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
  33. Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
  34. Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  35. Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long
  36. Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long
  37. 'Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
  38. 'Declare Function RegSetKeySecurity Lib "advapi32.dll" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long
  39. Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
  40. 'Declare Function RegSetValueEx1 Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  41. Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  42. Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  43. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  44.  
  45. Public Const REG_NONE = 0                       ' No value type
  46. Public Const REG_SZ = 1                         ' Unicode nul terminated string
  47. Public Const REG_EXPAND_SZ = 2                  ' Unicode nul terminated string
  48. Public Const REG_BINARY = 3                     ' Free form binary
  49. Public Const REG_DWORD = 4                      ' 32-bit number
  50. Public Const REG_DWORD_LITTLE_ENDIAN = 4        ' 32-bit number (same as REG_DWORD)
  51. Public Const REG_DWORD_BIG_ENDIAN = 5           ' 32-bit number
  52. Public Const REG_LINK = 6                       ' Symbolic Link (unicode)
  53. Public Const REG_MULTI_SZ = 7                   ' Multiple Unicode strings
  54. Public Const REG_RESOURCE_LIST = 8              ' Resource list in the resource map
  55. Public Const REG_FULL_RESOURCE_DESCRIPTOR = 9   ' Resource list in the hardware description
  56. Public Const REG_RESOURCE_REQUIREMENTS_LIST = 10
  57. Public Const REG_CREATED_NEW_KEY = &H1                  ' New Registry Key created
  58. Public Const REG_OPENED_EXISTING_KEY = &H2              ' Existing Key opened
  59. Public Const REG_WHOLE_HIVE_VOLATILE = &H1              ' Restore whole hive volatile
  60. Public Const REG_REFRESH_HIVE = &H2                     ' Unwind changes to last flush
  61. Public Const REG_NOTIFY_CHANGE_NAME = &H1               ' Create or delete (child)
  62. Public Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
  63. Public Const REG_NOTIFY_CHANGE_LAST_SET = &H4           ' Time stamp
  64. Public Const REG_NOTIFY_CHANGE_SECURITY = &H8
  65. Public Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME Or REG_NOTIFY_CHANGE_ATTRIBUTES Or REG_NOTIFY_CHANGE_LAST_SET Or REG_NOTIFY_CHANGE_SECURITY)
  66. 'Public Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)
  67.  
  68. ' Reg Create Type Values...
  69. Public Const REG_OPTION_RESERVED = 0           ' Parameter is reserved
  70. Public Const REG_OPTION_NON_VOLATILE = 0       ' Key is preserved when system is rebooted
  71. Public Const REG_OPTION_VOLATILE = 1           ' Key is not preserved when system is rebooted
  72. Public Const REG_OPTION_CREATE_LINK = 2        ' Created key is a symbolic link
  73. Public Const REG_OPTION_BACKUP_RESTORE = 4     ' open for backup or restore
  74. Public Const STANDARD_RIGHTS_READ = &H20000
  75. Public Const STANDARD_RIGHTS_WRITE = &H20000
  76. Public Const STANDARD_RIGHTS_EXECUTE = &H20000
  77. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  78. Public Const STANDARD_RIGHTS_ALL = &H1F0000
  79. Public Const DELETE = &H10000
  80. Public Const READ_CONTROL = &H20000
  81. Public Const WRITE_DAC = &H40000
  82. Public Const WRITE_OWNER = &H80000
  83. Public Const SYNCHRONIZE = &H100000
  84.  
  85. ' Reg Key Security Options
  86. Public Const KEY_QUERY_VALUE = &H1
  87. Public Const KEY_SET_VALUE = &H2
  88. Public Const KEY_CREATE_SUB_KEY = &H4
  89. Public Const KEY_ENUMERATE_SUB_KEYS = &H8
  90. Public Const KEY_NOTIFY = &H10
  91. Public Const KEY_CREATE_LINK = &H20
  92. 'Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
  93. 'Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
  94. 'Public Const KEY_EXECUTE = (KEY_READ)
  95. Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
  96.  
  97. Public Sub savekey(hKey As Long, strpath As String)
  98. Dim keyhand&
  99. r = RegCreateKey(hKey, strpath, keyhand&)
  100. r = RegCloseKey(keyhand&)
  101. End Sub
  102.  
  103. Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String)
  104.     Dim lResult As Long
  105.     Dim lValueType As Long
  106.     Dim strBuf As String
  107.     Dim lDataBufSize As Long
  108.     
  109.     On Error GoTo 0
  110.     lResult = RegQueryValueEx(hKey, strValueName, 0&, lValueType, ByVal 0&, lDataBufSize)
  111.     If lResult = ERROR_SUCCESS Then
  112.         If lValueType = REG_SZ Then
  113.             strBuf = String(lDataBufSize, " ")
  114.             lResult = RegQueryValueEx(hKey, strValueName, 0&, 0&, ByVal strBuf, lDataBufSize)
  115.             If lResult = ERROR_SUCCESS Then
  116.                 RegQueryStringValue = StripTerminator(strBuf)
  117.             End If
  118.         End If
  119.         If lValueType = REG_BINARY Then
  120.             Dim strData() As Integer
  121.             'MsgBox "Yeah, Binary..."
  122.             strBuf = lDataBufSize 'lDataBufSize
  123.             ReDim strData(strBuf)
  124.             'MsgBox "'" + strBuf + "'", , "StrBuf=lDataBufSize"
  125.             'MsgBox lDataBufSize, , "lDataBufSize"
  126.             lResult = RegQueryValueEx(hKey, strValueName, 0&, 0&, strData(0), lDataBufSize)
  127.             'MsgBox "'" + strBuf + "'"
  128.             If lResult = ERROR_SUCCESS Then
  129.                 RegQueryStringValue = strData(0)
  130.             End If
  131.         End If
  132.     End If
  133. End Function
  134.  
  135. Public Function getstring(hKey As Long, strpath As String, strvalue As String)
  136. Dim keyhand&
  137. Dim datatype&
  138.     r = RegOpenKey(hKey, strpath, keyhand&)
  139.     getstring = RegQueryStringValue(keyhand&, strvalue)
  140.     r = RegCloseKey(keyhand&)
  141. End Function
  142.  
  143. 'I have no clue as to what the following does!
  144. Function StripTerminator(ByVal strString As String) As String
  145. Dim intZeroPos As Integer
  146.  
  147.     intZeroPos = InStr(strString, Chr$(0))
  148.     If intZeroPos > 0 Then
  149.         StripTerminator = Left$(strString, intZeroPos - 1)
  150.     Else
  151.         StripTerminator = strString
  152.     End If
  153. End Function
  154.  
  155. Public Sub savestring(hKey As Long, strpath As String, strvalue As String, strData As String)
  156. Dim keyhand&
  157.     r = RegCreateKey(hKey, strpath, keyhand&)
  158.     r = RegSetValueEx(keyhand&, strvalue, 0, REG_SZ, ByVal strData, Len(strData))
  159.     r = RegCloseKey(keyhand&)
  160. End Sub
  161.  
  162. Public Sub savestringlong(hKey As Long, strpath As String, strvalue As String, strData As String)
  163. 'My poor attempt at writing a binary....
  164. Dim keyhand&
  165. Dim test(4) As Integer
  166.      
  167.      r = RegCreateKey(hKey, strpath, keyhand&)
  168.      test(0) = CByte(strData)
  169.      r = RegSetValueEx(keyhand&, strvalue, 0&, REG_BINARY, test(0), 4)
  170.      r = RegCloseKey(keyhand&)
  171. End Sub
  172.  
  173. Public Sub delsetting(hKey As Long, strpath As String, strvalue As String)
  174. 'This function deletes VALUES from the registry.
  175.  
  176. 'Very simple to use:
  177. 'Syntax: call delsetting hkey, "path to key", "value name"
  178. Dim keyhand&
  179.     r = RegCreateKey(hKey, strpath, keyhand&)
  180.     r = RegDeleteValue(keyhand&, strvalue)
  181.     r = RegCloseKey(keyhand&)
  182. End Sub
  183.